home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / hypercrd / xcmds / shwdlg16.hqx / ShowDialog XCMD 1.6 / card_10200.txt < prev    next >
Text File  |  1989-05-10  |  5KB  |  193 lines
  1. -- card: 10200 from stack: in.6
  2. -- bmap block id: 3988
  3. -- flags: 0000
  4. -- background id: 16130
  5. -- name: User Interface Menu
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A000
  11. -- rect: left=28 top=75 right=132 bottom=154
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 15849 / 15849
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Window Types
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   visual dissolve fast
  23.   go cd "Window Types"
  24. end mouseUp
  25.  
  26.  
  27.  
  28. -- part 2 (button)
  29. -- low flags: 00
  30. -- high flags: A000
  31. -- rect: left=194 top=75 right=132 bottom=320
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 15849 / 15849
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: Dialog Box Types
  40. ----- HyperTalk script -----
  41. on mouseUp
  42.   visual dissolve fast
  43.   go cd "Dialog Types"
  44. end mouseUp
  45.  
  46.  
  47.  
  48. -- part 3 (button)
  49. -- low flags: 00
  50. -- high flags: A000
  51. -- rect: left=357 top=75 right=132 bottom=483
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 15849 / 15849
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: Alert Box Types
  60. ----- HyperTalk script -----
  61. on mouseUp
  62.   visual dissolve fast
  63.   go cd "Alert Types"
  64. end mouseUp
  65.  
  66.  
  67.  
  68. -- part 4 (button)
  69. -- low flags: 00
  70. -- high flags: A000
  71. -- rect: left=194 top=154 right=211 bottom=320
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 529 / 529
  74. -- text alignment: 1
  75. -- font id: 0
  76. -- text size: 12
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: Install Icon in Home Card
  80. ----- HyperTalk script -----
  81. on mouseUp
  82.   beep 1
  83.   ShowDialog 1,3759,"Do you want to install the ShowDialog button in your Home stack?",TRUE
  84.   if the result Γëá 1 then exit mouseUp
  85.   set userlevel to 5
  86.   put the short name of this stack into thisStack
  87.   put "Installing icon in Home Stack..."
  88.   push card
  89.   set the cursor to 4
  90.   choose button tool
  91.   click at loc of me
  92.   doMenu "Copy Button"
  93.   visual effect wipe left
  94.   go home
  95.   doMenu "Paste Button"
  96.   set rect of cd btn "Install Icon in Home Card" to 17,66,122,113
  97.   set name of cd btn "Install Icon in Home Card" to thisStack
  98.   set the cursor to 3
  99.   put "Drag the ShowDialog button to where you want it..."
  100.   wait until the mouse is down
  101.   repeat until the mouse is up
  102.     set loc of cd btn thisStack to the mouseLoc
  103.   end repeat
  104.   put "on mouseUp" & return into setScript
  105.   visual effect dissolve
  106.   put "visual barn door close to black" & return after setScript
  107.   put "visual effect iris open to inverse" & return after setScript
  108.   put "visual effect dissolve" & return after setScript
  109.   put "go stack" && the NumToChar of 34 & thisStack & the NumToChar of 34 & return after setScript
  110.   put "end mouseUp" & return after setScript
  111.   set script of cd btn thisStack to setScript
  112.   choose browse tool
  113.   visual effect dissolve
  114.   go back
  115.   play harpsichord "ee c"
  116.   put "All done!"
  117. end mouseUp
  118.  
  119.  
  120. -- part 5 (button)
  121. -- low flags: 00
  122. -- high flags: A000
  123. -- rect: left=28 top=154 right=211 bottom=154
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 15849 / 15849
  126. -- text alignment: 1
  127. -- font id: 0
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: blank
  132.  
  133.  
  134. -- part 6 (button)
  135. -- low flags: 00
  136. -- high flags: A000
  137. -- rect: left=357 top=154 right=211 bottom=483
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 15849 / 15849
  140. -- text alignment: 1
  141. -- font id: 0
  142. -- text size: 12
  143. -- style flags: 0
  144. -- line height: 16
  145. -- part name: blank
  146.  
  147.  
  148. -- part 7 (button)
  149. -- low flags: 00
  150. -- high flags: A000
  151. -- rect: left=28 top=233 right=290 bottom=154
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 15849 / 15849
  154. -- text alignment: 1
  155. -- font id: 0
  156. -- text size: 12
  157. -- style flags: 0
  158. -- line height: 16
  159. -- part name: blank
  160.  
  161.  
  162. -- part 8 (button)
  163. -- low flags: 00
  164. -- high flags: A000
  165. -- rect: left=194 top=233 right=290 bottom=320
  166. -- title width / last selected line: 0
  167. -- icon id / first selected line: 21243 / 21243
  168. -- text alignment: 1
  169. -- font id: 0
  170. -- text size: 12
  171. -- style flags: 0
  172. -- line height: 16
  173. -- part name: New in ShowDialog 1.6
  174. ----- HyperTalk script -----
  175. on mouseUp
  176.   TextDialog 5748,geneva,10,"2000,2001,2002",1
  177. end mouseUp
  178.  
  179.  
  180.  
  181. -- part 9 (button)
  182. -- low flags: 00
  183. -- high flags: A000
  184. -- rect: left=357 top=233 right=290 bottom=483
  185. -- title width / last selected line: 0
  186. -- icon id / first selected line: 15849 / 15849
  187. -- text alignment: 1
  188. -- font id: 0
  189. -- text size: 12
  190. -- style flags: 0
  191. -- line height: 16
  192. -- part name: blank
  193.